home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / power basic_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  966b  |  29 lines
  1. 5 print"[147]"
  2. 10 print"note:  this program is designed to be"
  3. 20 print"       used as a subroutine for fast"
  4. 30 print"       character set transfer in your"
  5. 40 print"       own programs.  see the march"
  6. 50 print"       gazette article for proper use."
  7. 60 print"       to reload menu, press run-stop/         restore,";
  8. 70 print" then type load"chr$(34)"menu"chr$(34)",8"
  9. 90 poke56,14*4:clr:poke53272,(peek(53272)and240)or14
  10. 100 ad=828:rem starting address
  11. 110 fori=adtoad+81:reada:x=x+a:pokei,a:nexti
  12. 120 ifx<>9923thenprint"error in data statements.":stop
  13. 130 sysad
  14. 140 data 173,14,220,41,254,141,14
  15. 150 data 220,173,24,208,41,14,10
  16. 160 data 10,133,167,169
  17. 170 data 208:rem change to 216 to move lower case
  18. 180 data 133,252,173,0,221,41,3,73,3
  19. 190 data 10,10,10,10,10,10,5
  20. 200 data 167,133,254,165,1,41,251
  21. 210 data 133,1,169,0,133,251,133
  22. 220 data 253,168,162,8,177,251,145
  23. 230 data 253,200,208,249,230,252,230
  24. 240 data 254,202,208,242,165,1,9
  25. 250 data 4,133,1,173,14,220,9
  26. 260 data 1,141,14,220,96
  27. 1000 fori=14336to14343:reada:pokei,a:next
  28. 1010 data  60,66,165,129,165,153,66,60
  29.